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ABSTRACT 

The  design  and  implementation  of  the  NPS  LISP  programming  system 
is  described-   NPS  LISP  is  an  interactive  version  of  LISP  1.5,  a  so- 
phisticated list  processing  and  symbol  manipulation  computer  language. 
NPS  LISP  was  implemented  in  PL/I  for  operation  under  the  CP/CMS  time- 
sharing system  on  the  IBM  360/67  computer.   It  is  an  interpretive  sys- 
tem patterned  after  7090  LISP.   Most  of  the  features  of  7090  LISP  are 
included  in  NPS  LISP. 
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I.      INTRODUCTION 

A  member  of  the  family  of  list  processing  computer  languages  is  the 
highly  sophisticated  language  LISP.   The  LISP  language  was  first  de- 
veloped and  implemented  at  Massachusetts  Institute  of  Technology  in  con- 
nection with  research  in  Artificial  Intelligence.   It  has  since  been 
used  for  symbolic  calculations  in  Differential  and  Integral  Calculus, 
proving  theorems  in  the  Predicate  Calculus,  game  playing,  and  other 
areas  of  Artificial  Intelligence. 

This  thesis  describes  the  development  and  implementation  of  an  on- 
line interactive  version  of  LISP  for  the  IBM  360/67  computer.   In  order 
to  produce  a  basic  LISP  system  in  a  reasonably  short  length  of  time,  it 
was  decided  to  implement  an  interpreter-oriented  LISP  system  written  in 
PL/I.   The  system  would  operate  under  the  existing  CP/CMS  time-sharing 
system.   The  steps  taken  to  implement  NPS  LISP1  were:   (1)  gather  and 
study  available  literature  concerning  LISP  systems;  (2)  decide  on  the 
internal  system  structure;  (3)  write  the  elementary  LISP  functions;  (4) 
write  the  input  and  output  functions  and  the  interpreter;  and  (5)  write 
additional  procedures  which  give  the  system  the  desired  capability  in 
terms  of  predefined  LISP  functions „ 

A  basic  knowledge  of  LISP  and  an  understanding  of  the  material  in 
the  LISP  1.5  Reference  Manual  |_Ref  °  2]  is  essential  to  a  clear  under- 
standing of  this  thesis.   The  list  representation  conventions,  abbre- 
viations, and  descriptive  terms  contained  herein  are  those  found  in 
Ref.  2.   The  reader  is  assumed  to  have  an  elementary  knowledge  of  PL/I. 


NPS  LISP  is  the  name  given  to  this  version  of  LISP  1.5  implemented 
at  the  Naval  Postgraduate  School. 


II.   DISCUSSION  OF  LISP  IMPLEMENTATIONS 

Five  existing  LISP  systems  were  studied  prior  to  beginning  the  sys- 
tem design  of  NPS  LISP.   The  systems  examined  were  7090  LISP,  PDP-1 
LISP,  Q-32  LISP,  M-460  LISP,  and  BBN  940  LISP.   Their  designations  are 
derived  from  the  type  of  computer  on  which  each  system  was  implemented. 
During  the  study  of  each  LISP  system,  particular  attention  was  given  to 
the  internal  data  structure,  the  method  of  maintaining  variable  values 
(bindings),  and  other  features  relevant  to  an  interpreter-oriented  LISP 
system.   Those  features  related  to  a  particular  system's  LISP  compiler 
were  not  examined  closely,  nor  are  they  discussed  in  this  section. 

The  discussion  of  each  LISP  system  in  this  section  includes  some 
general  remarks  about  the  system,  followed  by  a  description  of  the  in- 
ternal data  structure  and  the  variable  binding  methods. 

A.   7090  LISP 

7090  LISP  is  a  complete  and  powerful  system  tjiat  was  implemented 
on  the  IBM  7090  at  M.I.T.  by  a  group  that  included  John  McCarthy,  the 
designer  of  the  first  LISP  programming  system  [Refs.  1  and  2]  .   It  is 
used  as  a  basis  for  comparing  the  other  LISP  systems  discussed  in  this 
section.   The  7090  LISP  system  accepts  as  input  a  pair  of  S-expres- 
sions  on  punched  cards  which  are  evaluated  by  the  function  EVALQUOTE. 
The  first  S-expression  is  a  function  name  or  definition.   The  second 
S -express ion  is  a  list  of  arguments  of  the  function. 
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1.   Data  Structure 

LISP  programs  and  data  are  represented  in  memory  by  lists.   Each 
element  of  a  list  in  7090  LISP  is  represented  by  a  cell  which  is  one 
36-bit  computer  word.   The  cell  is  divided  into  two  18-bit  fields  and  is 
graphically  represented  as  follows: 


address 

decrement 

0  17  18  35 

The  left  and  right  portions  of  the  cell  are  referred  to  as  the  CAR 
(contents  of  the  address  register)  and  the  CDR  (contents  of  the  decre- 
ment register),  respectively. 

An  atomic  symbol,  or  atom,  is  represented  in  memory  by  a  spe- 
cial type  of  cell  called  an  atom  header  cell  followed  by  a  property 
list.   Atom  header  cells  are  characterized  by  the  presence  of  the 
constant  -1  in  the  CAR  of  the  cell.   The  CDR  of  an  atom  header  cell 
points  to  the  atom's  property  list.   In  7090  LISP,  property  lists 
contain  both  information  required  for  system  operation  and  user-de- 
fined properties.   Atom  print  names  are  stored  in  a  non-list  area  of 
memory  called  full  word  storage.   Six  characters  of  a  print  name  are 
packed  in  a  full  word.   The  print  name  full  words  are  accessed  by  a 
list  of  pointers  on  the  property  list.   Figure  1  is  a  representation 
of  the  structure  of  the  atom  LISTING  which  is  a  function  defined  by 
the  S-expression  (LAMBDA  (X)  X). 

A  numerical  atom,  or  number,  is  represented  in  7090  LISP  by  an 
atom  header  cell  whose  CDR  points  to  a  full  word  containing  the  value 
of  the  number.   7090  LISP  accepts  and  operates  on  both  fixed-point 

11 


atom 
header 

property  list 

-1 

EXPR 

PNAME 

function 

ief 

in it ion 

r 

LAMBDA 

X 

i 

r 

\ 

_j 

X 

LI  ST  1  N 

G 

print  name 


FIGURE  1 
THE  7090  LISP  FUNCTION  LISTING  DEFINED  BY  (LAMBDA  (X)  X) 
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(integers)  and  floating  point  numbers.   A  tag  field  in  the  atom  header 
cell  specifies  the  type  of  number  represented.   For  example,  the  7090 
LISP  representation  of  the  integer  15  is  diagrammed  below: 


-1 

1 

15 

2.   Variable  Bindings 

Function  definitions  in  LISP  contain  the  special  form  LAMBDA 
as  the  first  element  in  the  S-expression  definition.   In  7090  LISP, 
LAMBDA  causes  the  dummy  variables  in  the  function  to  be  bound  to  their 
corresponding  arguments  on  an  association  list  (A-list) .   The  associa- 
tion list  is  a  list  of  pairs.   Each  pair  consists  of  a  dummy  variable 
and  its  corresponding  argument. 

Suppose,  for  example,  that  the  following  pair  of  S-expressions 
were  input  to  the  system: 

(LAMBDA  (X)  (CDR  X))   ((ABC)) 

The  interpreter  would  recognize  LAMBDA  and  then  bind  the  dummy  varia- 
ble X  to  the  list  (A  B  C)  on  the  A-list.   Thus,  the  A-list  would  be 
((X  .  (A  B  C)).   When  the  form  (CDR  X)  is  subsequently  evaluated,  the 
system  retrieves  (ABC)  as  the  value  of  X,  applies  the  function  CDR, 
and  returns  (B  C). 

Permanent  bindings  of  variables,  called  zero-level  bindings, 
are  made  on  property  lists  with  the  indicator  APVAL.   For  example,  if 
the  atom  X  has  a  permanent  value  of  (A  B  C) ,  its  property  list  would 
appear  as  illustrated  in  Figure  2. 
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B.   PDP-1  LISP 

PDP-1  LISP  was  developed  by  L.  Peter  Deutsch  for  the  PDP-1  computer 
made  by  the  Digital  Equipment  Corporation  [Ref.  l] .   PDP-1  LISP  is  a 
small  flexible  system  incorporating  only  a  limited  number  of  LISP  func- 
tions.  However,  the  system  has  two  significant  features.   First,  it 
can  operate  in  as  few  as  2000  words  of  core  memory.   Secondly,  it  al- 
lows correction  of  S -express ions  previously  input  to  the  system.   PDP-1 
LISP  accepts  a  single  S-expression  for  evaluation,  input  on  punched 
paper  tape  or  through  a  teletype  keyboard.   The  S-expression  is  eval- 
uated by  the  function  EVAL. 

1.   Data  Structure 

A  LISP  cell  in  PDP-1  LISP  is  formed  from  two  contiguous  18-bit 
words.   Four  bits  in  each  word  are  available  for  use  as  tags  since  only 
14  bits  are  required  for  addressing  list  structure.   PDP-1  LISP  uses 
the  LISP  cell  for  storing  all  types  of  data;  it  does  not  have  a  full 
word  storage  area. 

The  structure  of  PDP-1  LISP  atom  property  lists  is  essentially 
the  same  as  7090  LISP  property  lists.   Differences  are  found  in  the 
structure  of  the  atom  header  cells  and  the  manner  in  which  print  names 
are  stored.   The  CAR  of  the  atom  header  cell  points  to  the  print  name 
while  the  CDR  points  to  the  property  list.   Print  names  are  stored  in 
list  structure  with  three  characters  packed  in  the  CAR  of  each  list 
element.   Figure  3  shows  the  structure  of  the  atom  LISTING,  where 
LISTING  is  a  function  defined  by  the  S-expression  (LAMBDA  (U)  U) . 
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2.   Variable  Bindings 

PDP-1  LISP  variable  binding  techniques  are  similar  to  those  of 
7090  LISP.   That  is,  LAMBDA  causes  dummy  variables  to  be  bound  on  an 
association  list.   Permanent  values  are  placed  on  property  lists  after 
the  indicator  APVAL. 

C.   Q-32  LISP 

Q-32  LISP  was  developed  at  System  Development  Corporation  for  opera- 
tion under  SDC's  time-sharing  system  on  the  AN/FSQ-32  computer  [Ref.  3J  , 
Q-32  LISP  is  a  very  extensive  system  that  incorporates  all  but  a  few  of 
the  features  of  7090  LISP.  A  principal  feature  of  Q-32  LISP  is  that  it 
is  completely  compiler-oriented.   Thus,  all  functions  are  compiled  be- 
fore execution.   The  system  evaluates  pairs  of  S -express ions  input 
through  a  remote  teletype  terminal.   As  in  7090  LISP,  the  pair  consists 
of  a  function  and  a  list  of  arguments.   If  a  function  name  is  input  as 
the  first  S-expression,  the  compiled  code  which  defines  the  function  is 
applied  to  the  arguments.   If  the  first  S-expression  contains  LAMBDA  as 
its  first  element,  it  is  a  function  definition.   Therefore,  it  is  com- 
piled and  then  applied  to  the  arguments. 

1.   Data  Structure 

One  48-bit  Q-32  computer  word,  divided  into  four  parts,  forms 
a  LISP  cell  for  storing  list  structure.   The  prefix,  decrement,  tag, 
and  address  occupy  bits  0-5,  6-23,  24-29,  and  30-47,  respectively.   It 
should  be  noted  that  in  other  LISP  systems  discussed  here,  the  decre- 
ment is  contained  in  the  right  part  of  the  LISP  cell  and  the  address 
is  in  the  left  part.   For  consistency,  the  Q-32  LISP  cell  will  be 
shown  as  follows: 
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prefix 

address 

tag 

decrement 

0      5  6        23  24  29  30         47 

Atom  property  list  structures  in  Q-32  LISP  differ  considerably 
in  complexity  and  form  from  7090  LISP  property  lists .   A  primary  reason 
for  this  difference  is  that  Q-32  LISP  is  compiler-oriented  rather  than 
interpreter-oriented.   The  atom  header  cell  of  a  literal  atom  contains 
an  atom  flag  in  the  prefix  (bit  1=1),  along  with  a  CDR  pointer  to  its 
print  name  and  property  list.   The  CAR  of  the  atom  header  cell  is  either 
NIL  or  points  to  a  special  binding  which  is  similar  to  an  APVAL  binding 
in  7090  LISP.   The  CAR  of  the  first  cell  on  a  property  list  following 
the  atom  header  cell  points  to  an  array  containing  the  print  name.   The 
remainder  of  the  property  list  is  used  only  for  storing  properties  de- 
fined by  the  LISP  programmer.   The  7090  LISP  indicators  PNAME,  APVAL, 
SUBR,  and  EXPR  are  not  used  in  Q-32  LISP. 

Q-32  LISP  also  utilizes  quote  cells.   The  quote  cells  are  used 
to  designate  atoms  and  active  list  structure  during  garbage  collection. 
The  CAR  of  a  quote  cell  points  to  an  atom  header  cell  or  a  list  struc- 
ture.  The  CDR  of  a  quote  cell  is  always  NIL.   A  reserved  region  of 
core  memory  contains  the  quote  cells  and  literal  atom  header  cells. 

As  an  example,  consider  the  list  structure  for  a  typical  atom 
in  Q-32  LISP.   Referring  to  Figure  4,  assume  that  the  atom  ATOMLISTA 
has  a  zero-level  binding  to  the  list  (A  B  C)  and  that  the  property  J 
has  been  put  on  the  property  list  under  the  indicator  PROP.   The  print 
name  of  ATOMLISTA  is  stored  in  an  array  in  full  word  storage.   The 
first  word  in  the  array  indicates  that  the  array  contains  a  print  name 
(octal  03  in  the  prefix).   The  first  word  also  indicates  that  the  print 
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name  uses  two  words  of  storage  (2  in  the  CDR)  and  that  there  is  one 
character  stored  in  the  last  word  of  the  array  (1  in  the  tag). 

The  atom  header  cell  of  a  function  name  has  a  CAR  pointer  to 
the  first  cell  of  compiled  code  for  the  function.   For  example,  the 
structure  of  the  LISP  function  EQ  is  shown  in  Figure  5. 

The  storage  of  numbers  is  similar  to  print  names „   Numerical 
atom  header  cells  are  stored  in  free  storage  instead  of  in  the  reserved 
area  of  memory  with  literal  atom  header  cells.   For  example,  the  number 
101  is  represented  by  the  structure  given  in  Figure  6.   The  atom  header 
cell  of  the  numerical  atom  101  contains  71  in  the  tag  field  to  indicate 
the  number  is  an  integer.   The  CAR  of  the  atom  header  cell  points  to  an 
array  in  full  word  storage  containing  the  value  of  the  number.   The  ar- 
ray header  contains  octal  02  in  the  prefix  indicating  a  numerical  array. 
The  number  1  in  the  CDR  specifies  that  one  data  word  is  used.   Note  that 
the  arrays  in  full  word  storage  are  sets  of  contiguous  memory  locations. 

The  OBLIST  is  the  structure  which  allows  literal  atoms  to  be 
represented  uniquely  in  Q-32  LISP.   The  OBLIST  is  a  set  of  125  contigu- 
ous words  in  memory  which  point  to  a  list  of  pointers  to  literal  atoms. 
It  is  used  by  the  read  routines  as  a  rapid  look-up  table  for  atoms  to 
determine  if  they  are  present  in  memory.   A  simple  hash  coding  scheme 
based  on  the  first  eight  characters  of  the  print  name  is  used  to  de- 
termine the  placement  of  an  atom  in  the  OBLIST. 

2.   Variable  Bindings 

Q-32  LISP  does  not  use  an  association  list  for  maintaining 
variable  values  bound  by  LAMBDA.   Instead,  bindings  of  dummy  variables 
are  kept  in  a  pushdown  list.   Referring  to  Figure  4,  note  that  zero- 
level  bindings  are  referenced  by  a  CAR  pointer  in  the  atom  header  cell. 
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This  discussion  of  variable  bindings  has  been  greatly  simpli- 
fied.  In  actuality,  there  are  other  aspects  of  variable  bindings  in 
Q-32  LISP  which  are  important  if  a  complete  understanding  of  Q-32  LISP 
is  desired.   However,  these  aspects  are  not  covered  in  this  section 
since  they  are  not  essential  in  an  interpreter-oriented  system„ 

D.   M-460  LISP 

M-460  LISP  is  the  name  given  to  the  LISP  system  implemented  on  the 

UNIVAC  M-460  computer  at  the  Air  Force  Cambridge  Research  Laboratories 

[Ref.  l]  .   It  is  compatible  with  7090  LISP  although  there  are  some 
features  not  implemented. 

1.   Data  Structure 

The  M-460  LISP  cell  consists  of  one  30-bit  M-460  computer  word. 
Fifteen  bit  fields  are  used  for  both  the  address  and  decrement  values. 
There  are  no  tag  fields  in  the  cell. 

Property  lists  of  literal  atoms  in  M-460  LISP  differ  in  several 
significant  ways  from  those  in  7090  LISP.   In  place  of  the  7090  LISP 
indicators  APVAL,  SUBR,  and  EXPR,  property  lists  in  M-460  LISP  contain 
a  value  cell.   The  first  cell  on  the  property  list  which  follows  the 
atom  header  cell  contains  a  CAR  pointer  to  the  value  cell.   The  CAR  of 
the  value  cell  points  to  one  of  the  following:   (1)  a  zero-level  bind- 
ing; (2)  the  code  for  a  compiled  function;  or  (3)  a  LAMBDA  expression 
which  defines  a  function.   In  the  case  of  a  compiled  function,  the 
value  cell  also  contains  a  CDR  pointer  to  a  SETUP  routine  which  stores 
parameters  and  variable  values  on  the  pushdown  list. 
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The  LISP  function  CAR  is  an  example  of  a  compiled  function. 
The  structure  of  the  property  list  of  CAR  is  shown  in  Figure  7.   The 
function  FN  defined  by  the  S-expression  (LAMBDA  (Y)  (PRINT  Y))  has 
the  structure  illustrated  in  Figure  8.   Note  that  the  print  name  is 
stored  in  a  list  with  one  character  in  the  CAR  of  each  list  element. 

Numerical  atoms  are  structured  in  a  rather  unique  fashion  in 
M-460  LISP.  Numerical  atoms  are  stored  in  a  list  structure  composed 
of  an  atom  header  cell  with  a  CDR  pointer  to  a  list  of  number  cells. 
The  value  of  the  number  is  stored  in  a  list  containing  one  to  three 
number  cells.   The  CAR  of  each  number  cell  contains  ten  significant 
bits  and  a  sign  bit.   The  CDR  points  to  any  remaining  number  cells. 
Note  that  there  is  no  full  word  storage  in  M-460  LISP  memory, 

2.   Variable  Bindings 

In  contrast  to  7090  LISP,  the  M-460  LISP  system  does  not  have 
an  association  list  for  maintaining  values  of  variables.   Instead, 
bindings  of  dummy  variables  established  by  LAMBDA  are  kept  on  a  push- 
down list.   Zero-level  bindings  are  referenced  by  the  CAR  of  the  value 
cell  on  the  property  list.   Suppose,  for  example,  that  the  atom  ATM 
has  a  zero-level  binding  to  the  list  (G  H  I).   The  structure  of  ATM 
is  represented  in  Figure  9. 

E.   BBN  940  LISP 

BBN  940  LISP  is  an  upward  compatible  extension  of  7090  LISP  im- 
plemented on  the  SDS  940  computer  by  Bolt  Beranek  and  Newman,  Inc. 
[Refs,,  4  and  5_j .   BBN  LISP  includes  a  number  of  features  which  give 
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it  extensive  on-line  capabilities.   These  features  include  conditional 
break-points  in  functions  for  debugging  along  with  a  sophisticated  LISP 
editor.   The  most  significant  feature,  however,  is  the  use  of  a  drum  as 
the  principal  storage  device.   Careful  segmentation  of  system  code, 
arrangement  of  data  in  memory  by  type,  and  special  attention  to  binding 
of  variables  contribute  to  the  success  of  the  system. 

The  design  of  BBN  940  LISP  is  quite  different  from  the  other  LISP 
systems  discussed  here.   None  of  the  internal  system  conventions  of 
BBN  940  LISP  were  considered  for  incorporation  into  NPS  LISP  because 
of  the  system's  use  of  two  level  storage  and  its  complex  compiler- 
oriented  structure.   BBN  940  LISP  is  mentioned  here  only  because  of 
its  unique  features  and  is  not  further  discussed. 

The  study  of  these  various  LISP  systems  provided  many  specific  im- 
plementation ideas  for  the  design  of  NPS  LISP.  Features  borrowed  from 
these  LISP  systems  for  NPS  LISP  are  described  in  the  next  section. 
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Ill,   NPS  LISP  SYSTEM  DESIGN  AND  IMPLEMENTATION 

The  design  and  implementation  of  NPS  LISP  was  based  on  a  study  of 
the  five  LISP  systems  described  in  Section  II.   During  the  course  of 
this  study,  it  was  found  that  no  LISP  system  in  particular  was  decidedly 
superior  to  the  others  from  the  standpoint  of  internal  system  design. 
However,  7090  LISP  is  described  in  greater  detail  in  the  available  lit- 
erature and  it  has  the  distinction  of  being  a  development  of  the  origi- 
nal LISP  programming  system.   It  was  decided,  therefore,  to  model  NPS 
LISP  after  7090  LISP  for  both  technical  and  aesthetic  reasons. 

The  discussion  of  the  design  and  implementation  of  NPS  LISP  in  this 
section  begins  with  a  description  of  the  internal  system  conventions 
adopted  for  list  representation,  atom  property  lists,  character  objects, 
numerical  atoms,  the  OBLIST,  and  memory  organization.   Next,  is  a  com- 
plete and  detailed  description  of  the  NPS  LISP  interpreter.   A  short 
discussion  of  NPS  LISP  functions  and  some  of  their  common  characteris- 
tics concludes  this  section. 

A.   INTERNAL  SYSTEM  CONVENTIONS 

The  internal  structure  of  NPS  LISP  resembles  7090  LISP  more  than 
any  other  LISP  system.   However,  design  features  of  other  systems  were 
incorporated  into  NPS  LISP  when  they  appeared  to  be  advantageous.   It 
was  desired  to  keep  the  NPS  LISP  system  structure  uncomplicated,  yet 
allow  for  the  basic  capabilities  of  7090  LISP.   Thus,  the  internal 
structure  described  in  this  section  is  a  compromise  between  structural 
simplicity  and  system  sophistication. 
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1.   List  Representation 

In  NPS  LISP,  lists  are  represented  in  memory  by  a  linked  list 
structure  build  from  32-bit  computer  words.  Each  cell  can  be  graphi- 
cally represented  as  follows: 


address 


decrement 


1         16  17  32 

The  address  and  decrement  fields  of  the  cell  are  16-bit  fields  whose 
first  bit  is  reserved  for  use  in  garbage  collection.   The  maximum  size 
of  NPS  LISP  memory  is  limited  to  the  maximum  value  representable  in  15 
bits  --32,767. 

All  LISP  programs  and  data,  except  numbers,  are  stored  in  list 
structure.   The  system  does  not  rely  on  values  being  located  in  succes- 
sive memory  cells;  instead,  the  interpreter  accesses  particular  values 
by  traversing  lists.   Since  LISP  lists  are  essentially  binary  trees, 
the  list  traversing  procedures  are  relatively  straightforward. 

2.   Atoms  and  Property  Lists 

Atomic  symbol  representation  and  property  lists  in  NPS  LISP 
correspond  closely  to  those  in  7090  LISP.   Every  atomic  symbol  is  rep- 
resented uniquely.   In  addition,  each  atom  has  a  property  list  created 
when  the  atom  is  read. 

Initially,  each  atom  has  only  its  print  name  on  its  property 
list.   A  special  type  of  cell,  called  an  atom  header  cell,  is  the 
first  cell  on  a  property  list.   An  atom  header  cell  contains  -1  in 
its  CAR.   The  CAR  of  an  atom  header  cell  is  the  only  element  of  list 
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structure  containing  a  negative  number.   Thus,  it  is  a  simple  matter  to 
determine  when  an  atom  has  been  reached  during  list  traversals  by  test- 
ing for  a  value  less  than  zero.   The  CDR  of  an  atom  header  points  to  the 
property  list. 

Some  properties  that  are  on  property  lists  of  literal  atoms  are 
preceded  by  special  system  defined  atoms  called  indicators.   The  indi- 
cators used  by  NPS  LISP  and  their  meanings  are: 
PNAME     print  name  of  the  atom 

APVAL     permanent  value  of  an  atom  considered  as  a  variable 
SUBR      function  defined  by  a  PL/ I  procedure 
EXPR      function  defined  by  an  S-expression 
FSUBR     special  form  defined  by  a  PL/ I  procedure 
FEXPR     special  form  defined  by  an  S-expression 
In  addition  to  the  indicators  used  by  the  LISP  system,  the  LISP  pro- 
grammer may  put  other  indicators  on  property  lists. 

A  property  list  indicator  not  followed  by  a  property  is  called 
a  flag.  Flags  indicate  a  certain  property  by  their  presence  alone.   An 
example  of  a  flag  is  the  trace  flag,  FLAG.   FLAG  is  put  on  the  property 
list  of  a  function  to  cause  trace  information  to  be  printed  when  the 
function  is  executed. 

The  method  of  atom  print  name  storage  was  taken  from  M-460  LISP. 
An  atom  print  name  is  stored  in  a  list.   The  CAR  of  each  cell  in  the 
list  contains  the  EBCDIC  code  of  one  character  of  the  print  name.   The 
CDR  is  a  pointer  to  the  remainder  of  the  name.   For  example,  the  atom 
ABCD  is  represented  in  NPS  LISP  memory  as  shown  in  Figure  10.   It  is 
emphasized  that  while  PNAME  and  NIL  in  Figure  10  are  pointers  to  the 
atoms  PNAME  and  NIL  respectively,  the  characters  A,  B,  C,  and  D  are  the 
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actual  EBCDIC  code  for  those  characters.   In  Figure  10,  the  computer 
word  containing  the  character  A  appears  as  follows,  assuming  B  is  con- 
tained in  cell  1024: 

A  1024 


00000000"*"  10111111 


00000100  00000000 

„ L__ 


The  binary  number  10111111  in  the  second  byte  above  corresponds  to 
decimal  191,  the  EBCDIC  code  for  the  character  A.   Note  that  the  first 
byte  of  a  print  name  cell  is  unused  since  the  first  bit  is  reserved  for 
garbage  collection. 

The  indicators  SUBR  and  FSUBR  on  an  atom  property  list  signal 
that  the  atom  is  a  function  defined  by  a  PL/ I  procedure.   Each  PL/ I 
coded  function  is  assigned  a  unique  integer  number.   The  interpreter 
uses  this  number  to  transfer  control  at  the  time  of  the  function  call. 
For  example,  the  LISP  function  CAR  has  the  structure  diagrammed  in 
Figure  11.   The  number  2  appearing  after  SUBR  is  the  unique  number  as- 
signed to  the  function  CAR. 

Functions  defined  by  S-expressions  in  NPS  LISP  have  one  of  the 
indicators  EXPR  or  FEXPR  on  their  property  lists.   Figure  12  is  a  dia- 
gram of  the  function  LISTING,  where  LISTING  is  defined  by  the  S-expres- 
sion  (LAMBDA  (X)  X). 

Literal  atoms  which  have  a  permanent  value  (zero-level  binding) 
have  the  indicator  APVAL  on  their  property  lists.   If,  for  example,  the 
atom  LISTA  has  a  permanent  value  of  (A  B  C  D) ,  its  property  list  is 
structured  as  in  Figure  13. 

There  are  three  literal  atoms  in  NPS  LISP  which  have  themselves 
as  values:  T,  F,  and  NIL.  The  atoms  T  and  F  can  be  interpreted  as  the 
boolean  values  true  and  false.   NIL  is  used  to  terminate  a  list. 
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The  property  lists  for  T,  F,  and  NIL  are  in  Figure  14.   Note  that  in 
Figure  14  the  value  of  T  is  T,  the  value  of  F  is  NIL,  and  the  value  of 
NIL  is  NIL.   This  may  appear  confusing,  but  the  interpreter  is  con- 
structed to  evaluate  T,  F,  and  NIL  to  their  proper  values;  the  circular 
lists  are  not  a  problem  here. 

3.  Character  Objects 

NPS  LISP  handles  special  characters  in  a  manner  similar  to  7090 
LISP.   Special  characters  are  characters  other  than  letters  and  digits. 
The  legal  special  characters,  called  character  objects,  have  print 
names  that  are  the  mnemonic  equivalent  of  their  corresponding  type- 
writer character,  and  values  which  are  their  EBCDIC  codes.   For  ex- 
ample, the  character  object  RPAR  (right  parenthesis)  has  the  structure 
given  in  Figure  15. 

Character  objects  are  not  stored  in  memory  with  their  atom 
header  cells  in  successive  memory  locations.   Instead,  they  are  stored 
as  any  other  literal  atom.   The  unique  characteristic  of  a  character 
object  is  that  the  value  of  the  object  is  an  EBCDIC  code  rather  than 
a  pointer  to  an  atom  header  or  list.   The  legal  character  objects  and 
their  permanent  values  are  listed  in  Table  1. 

4.  Numbers 

Only  integer  numbers  are  allowed  in  NPS  LISP.   The  manner  of 
storing  numbers  in  NPS  LISP  is  similar  to  that  of  7090  LISP.   A  number 
is  an  atom  that  does  not  have  a  property  listc   The  CDR  of  the  atom 
header  of  a  numerical  atom  points  to  an  area  of  memory  called  full 
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word  storage.   The  value  of  the  number  is  stored  in  full  word  storage 
as  a  signed  binary  integer.   For  example,  the  number  255  has  the  follow- 
ing representation: 


-1 

255 

Numbers  are  not  unique  in  NPS  LISP.   For  example,  each  occur- 
rence of  the  number  5  in  the  list  (1  5  2  5)  is  represented  by  a  sep- 
arate atom  header  cell  whose  CDR  points  to  a  different  location  in  full 
word  storage.   Figure  16  is  a  diagram  of  the  list  (15  2  5)  illustrat- 
ing the  method  of  number  representation. 

5.   The  OBLIST 

The  object  list,  or  OBLIST,  is  the  structure  which  permits 
literal  atoms  to  be  represented  uniquely  in  memory.   The  OBLIST  con- 
sists of  127  contiguous  memory  cells  each  containing  a  CDR  pointer 
to  a  sub-list.   The  CAR  of  each  element  on  a  sub-list  points  to  an 
atom  that  has  either  been  read  or  is  part  of  the  initialized  system. 
When  atoms  are  read,  a  hash  code  is  computed  based  on  the  first 
three  characters  of  the  atom  print  name  and  the  length  of  the  print 
name.   An  atom  is  placed  in  the  OBLIST  according  to  its  hash  code  -- 
a  number  between  one  and  127.   The  CAR  of  each  cell  in  the  OBLIST 
contains  the  number  of  atoms  that  exist  in  the  system  and  which  hash 
code  to  the  same  OBLIST  location. 

For  example,  suppose  the  atoms  F0RM1  and  F0RM2  have  a  com- 
puted hash  code  of  57.   If  they  are  the  only  atoms  in  the  system 
with  this  particular  hash  code,  the  relevant  section  of  the  OBLIST 
and  its  sub-list  is  represented  in  Figure  17. 
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The  read  routines  ensure  that  multiple  references  to  the  same 
atom  point  to  the  same  atom  header  cell.   Figure  18  shows  a  multiple 
reference  to  the  atom  E  in  the  list  (E  E  F) . 

6.   Organization  of  Memory 

Since  the  NPS  LISP  system  was  coded  in  PL/ 1,  LISP  memory  is 
actually  an  array  named  FSTOR  (free  storage)  having  the  attributes 
BINARY  FIXED(31)  and  a  dimension  of  (0:32766).   Each  LISP  cell  is  one 
element  in  the  FSTOR  array.   The  CAR  and  CDR  of  each  cell  are  either 
indexes  into  the  FSTOR  array  or  EBCDIC  codes  for  the  print  name  char- 
acters or  character  objects. 

NPS  LISP  differs  from  other  LISP  systems  discussed  in  one  im- 
portant way:   all  NPS  LISP  system  functions  including  the  interpreter 
and  I/O  routines  are  written  in  PL/I.   Thus,  most  of  the  32K  LISP 
memory  is  available  for  storing  list  structure  and  numbers. 

The  OBLIST  was  placed  in  the  lowest  127  cells  of  LISP  memory 
in  order  to  maintain  a  reasonable  resemblance  to  a  more  conventional 
LISP  system.   That  is,  FSTOR(l:127)  corresponds  to  the  OBLIST.   The 
atom  structures  for  all  built-in  LISP  functions  and  legal  character 
objects  are  created  during  system  initialization.   These  structures 
occupy  approximately  the  next  1000  cells  in  FSTOR.   The  region  of 
FSTOR  beginning  at  (approximately)  FSTOR (1100)  to  the  lower  limit 
of  full  word  storage  is  allocated  for  list  structure  and  is  called 
free  storage. 

Numbers  are  stored  in  full  word  storage  located  at  the  top  of 
memory.   One  cell,  FSTOR (32766) ,  is  initially  allocated  for  storing 
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the  first  number.   Subsequent  numbers  are  placed  in  FSTOR  at  lower  ad- 
dresses.  During  the  execution  of  LISP  programs,  the  areas  occupied  by 
list  structure  and  numbers  grow  toward  each  other.   The  organization  of 
NPS  LISP  memory  is  illustrated  below: 


32766 
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FREE 


127 
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Numbers 
(occupied) 


Free 

Storage 

(unoccupied) 


List 

Structure 

(occupied) 


OBLIST 


NPS  LISP 
MEMORY 


FREE  and  BNUM  are  PL/ I  variables  which  point  to  the  next  available  cell 
in  free  storage  and  full  word  storage  respectively. 

Another  departure  from  the  structure  of  other  LISP  systems  is 
that  NPS  LISP  does  not  maintain  a  pushdown  list.  Recursive  LISP  func- 
tions are  written  as  recursive  PL/ I  procedures.  Thus,  partial  results 
of  computations  are  maintained  automatically.  S-expressions  which  de- 
fine recursive  functions  are  evaluated  by  the  recursive  PL/ I  procedures 
NAPPLY  and  NEVAL„  Difficulties  may  occur  in  the  implementation  of  the 
garbage  collection  routines  due  to  the  exclusion  of  the  pushdown  list. 
Garbage  collection  is  discussed  further  in  Section  IV„ 

Once  the  internal  system  conventions  of  NPS  LISP  were  estab- 
lished, a  few  elementary  LISP  functions  were  written  and  tested  to 
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check  the  validity  of  the  system  structure.   The  interpreter  that  was 
written,  based  on  the  design  conventions,  is  described  in  the  following 
paragraphs . 

B.   THE  NPS  LISP  INTERPRETER 

A  thorough  knowledge  of  how  the  interpreter  operates  is  essential 
to  a  complete  understanding  of  any  interpretive  LISP  system.   For  this 
reason,  the  NPS  LISP  interpreter  is  described  in  detail.   The  reader 
may  wish  to  refer  to  the  listing  of  the  interpreter  in  Appendix  C  while 
reading  this  section. 

The  NPS  LISP  interpreter,  a  PL/I  procedure  called  NEVALQ,  consists 
of  a  set  of  PL/I  procedures  which  perform  the  essential  tasks  of  eval- 
uating S-expressions  input  to  the  system.   NEVALQ  is  called  by  the  NPS 
LISP  supervisor,  LISPA,  after  two  S-expressions  have  been  read.   These 
two  S-expressions  are  the  two  arguments  of  NEVALQ.   The  first  argument 
is-  a  function  name  or  function  definition;  the  second  argument  is  a 
list  of  arguments  for  the  function.   The  interpreter  is  patterned  after 
the  7090  LISP  interpreter  and  contains  the  same  7090  LISP  functions 
EVALQUOTE,  EVAL,  APPLY,  EVLIS,  and  EVCON.   In  addition,  the  interpreter 
contains  procedures  required  by  NPS  LISP  due  to  the  structure  of  the 
system.   Each  of  the  major  interpreter  functions  is  discussed  separately 
below.   The  first  function  considered  is  a  PL/I  procedure  vital  to  the 
operation  of  NPS  LISP. 

1.   The  Procedure  NPROC 

NPROC  is  a  PL/ I  procedure  that  provides  the  interface  between 
the  interpreter  and  the  LISP  functions  coded  as  PL/I  procedures. 
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As  mentioned  in  Section  III,  each  LISP  function  coded  in  PL/I  has  either 
SUBR  or  FSUBR  followed  by  a  unique  number  on  its  property  list.   This 
number  is  used  by  NPROC  to  transfer  to  the  subscripted  label  variable  A. 
The  statement  in  NPROC  following  A(i)  is  a  call  to  the  corresponding  LISP 
f unc  t  ion . 

As  an  example,  refer  back  to  Figure  11  where  the  structure  of 
the  function  CAR  is  diagrammed.   The  number  2  following  SUBR  on  CAR's 
property  list  is  the  number  used  by  NPROC  to  transfer  to  the  statement 
with  the  label  A(2).   NPROC  also  assigns  the  arguments  of  LISP  func- 
tions to  the  standard  PL/I  variables  ARG(l),  ARG(2),  and  ARG(3).   Note 
that  this  restricts  only  PL/I  coded  LISP  functions  to  three  arguments. 
The  value  of  NPROC  is  the  value  of  the  LISP  function  called  by  NPROC. 

2.  EVALQUOTE 

The  first  few  executable  statements  of  NEVALQ,  although  not 
written  as  a  separate  procedure,  serve  the  same  purpose  as  the  7090 
LISP  function  EVALQUOTE.   These  statements  determine  if  the  first  ar- 
gument of  NEVALQ  is  a  function  with  either  FEXPR  or  FSUBR  on  its  prop- 
erty list.   If  so,  the  function  name  is  paired  with  the  arguments  and 
EVAL  is  called  with  a  NIL  association  list.   Otherwise,  APPLY  is  called 
with  a  NIL  association  list  (A-list). 

3.  APPLY 

The  three  primary  tasks  of  APPLY  are  to  (1)  apply  a  function 
to  its  arguments;  (2)  bind  variables  and  function  names  on  the  A-list 
by  evaluating  the  special  forms  LAMBDA  and  LABEL;  and  (3)  evaluate 
functional  arguments  by  detecting  the  special  form  FUNARG.   The  three 
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arguments  of  APPLY  are  a  function  name  or  definition,  a  list  of  argu- 
ments for  the  function,  and  the  current  A-list.   Each  of  the  principal 
tasks  of  APPLY  are  examined  below  in  the  order  that  they  are  accomplished, 

Suppose  a  function  name  is  supplied  as  the  first  argument  of 
APPLY.   First,  the  property  list  of  the  function  is  searched  for  a  func- 
tion definitionc   The  indicator  SUBR  appearing  on  the  property  list 
means  that  the  function  definition  is  a  PL/I  procedure  and  causes  con- 
trol to  pass  to  NPROC.   The  procedure  NPROC  then  calls  the  proper  LISP 
function.   If  the  function  has  an  S-expression  definition  as  indicated 
by  EXPR,  APPLY  is  called  recursively  with  the  function  definition  in 
place  of  the  function  name. 

Assuming  that  neither  SUBR  or  EXPR  is  found  on  the  property 
list  of  the  function  name,  APPLY  searches  the  A-list  for  a  function 
definition.   If  one  is  found,  APPLY  is  called  recursively  with  the 
function  definition  replacing  the  function  name.   If  no  function  defi- 
nition is  found  on  the  A-list  or  property  list,  the  function  is  unde- 
fined and  an  error  message  is  printed. 

The  first  element  of  a  function  supplied  to  APPLY  may  be  one 
of  the  special  forms  LAMBDA,  LABEL,  or  FUNARG.   The  appearance  of 
LAMBDA  initiates  two  actions.   The  list  of  dummy  (local)  variables 
following  LAMBDA  are  bound  on  the  A-list  to  their  corresponding  ar- 
guments by  the  LISP  function  PAIR.   Further,  the  function  definition 
is  evaluated  by  EVAL  using  the  modified  A-list.   When  the  special 
form  LABEL  is  encountered,  the  name  appearing  after  LABEL  is  bound 
to  its  function  definition  on  the  A-list.   APPLY  is  then  called  with 
the  function  definition  as  its  first  argument.   For  example,  the  S- 
expression  (LABEL  FN  (LAMBDA  (X)  (CDR  X)))  adds  (FN  .  (LAMBDA  (X) 
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(CDR  X)))  to  the  A-list  and  APPLY  is  called  recursively  with  (LAMBDA  (X) 
(CDR  X))  as  its  first  argument.   In  most  LISP  systems,  FUNARG  is  referred 
to  as  a  device  rather  than  a  special  form  since  it  is  used  only  within 
the  system.   When  a  function  has  a  functional  argument,  FUNARG  ensures 
the  correct  retrieval  of  bindings  of  free  variables  which  occur  in  the 
functional  argument.   An  excellent  discussion  of  the  necessity  and  opera- 
tion of  the  FUNARG  device  is  contained  in  Ref.  1,  pages  63-65. 

It  may  happen  that  the  first  argument  of  APPLY  is  not  in  a  form 
suitable  for  evaluation  by  APPLY.   In  this  case,  EVAL  evaluates  the 
first  argument  and  then  APPLY  is  called  recursively  with  the  value  of 
EVAL  as  its  first  argument. 

4.   EVAL 

The  primary  purpose  of  EVAL  is  to  evaluate  forms.   A  form  is 
defined  as  an  S-expression  consisting  of  (1)  a  numerical  or  literal 
atom;  (2)  one  of  the  special  forms  QUOTE,  FUNCTION,  or  COND,  followed 
by  its  arguments;  or  (3)  a  function  followed  by  its  arguments.   EVAL 
requires  two  arguments  --a  form  to  be  evaluated  and  the  current  A- 
list.   EVAL  returns  an  S-expression  that  is  the  value  of  the  form. 
The  actions  taken  by  EVAL  in  evaluating  a  form  are  described  below 
in  the  order  which  they  occur. 

The  first  argument  of  EVAL  may  be  a  numerical  or  literal  atom. 
If  it  is  a  number,  as  occurs  in  the  S-expression  (CONS  1  2),  then  EVAL 
merely  returns  the  number  as  its  value.   If  the  first  argument  is  a 
literal  atom,  it  must  have  been  previously  bound  to  a  value  on  either 
its  property  list  or  the  A-list.   EVAL  first  searches  the  property 
list  of  the  atom  for  a  zero-level  binding  under  the  indicator  APVAL. 
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It  returns  this  value  if  the  search  is  successful.  If  no  APVAL  binding 
is  found,  the  A-list  is  searched  from  the  top  for  the  most  recent  value 
binding  of  the  atom.  If  no  binding  is  discovered,  an  error  results  and 
an  error  message  is  printed. 

The  order  in  which  atom  values  are  retrieved  is  important.  Since 
property  lists  are  searched  before  the  A-list  for  value  bindings,  a 
zero-level  binding  always  takes  precedence  over  any  bindings  that  are 
on  the  A-list.  The  example  below  illustrates  this  fact: 

CSET  (A  (1  2  3)) 

(LAMBDA  (A  B)  (CONS  A  B))  (X  Y)  -  ((1  2  3) .  Y) 
The  atom  A  is  given  a  zero-level  binding  to  the  list  (1  2  3)  by  the 
function  CSET.  When  the  interpreter  recognizes  LAMBDA,  A  and  B  are 
bound  to  X  and  Y  on  the  A-list.  As  the  arguments  of  CONS  are  eval- 
uated by  EVAL,  (1  2  3)  is  retrieved  from  the  property  list  of  A,  and 
Y  is  obtained  as  the  value  of  B  from  the  A-list.  Thus,  the  arguments 
of  CONS  are  (1  2  3)  and  Y.   The  S-expression  ((12  3)  .  Y)  is  returned 
as  the  value  of  CONS. 

If  the  form  to  be  evaluated  is  not  an  atom,  then  it  is  an  S- 
expression  whose  first  atomic  element  is  a  special  form  or  function 
name.  The  special  forms  recognized  by  EVAL  are  QUOTE,  FUNCTION,  and 
COND.  The  special  form  QUOTE  causes  the  element  following  QUOTE  to 
be  returned  as  the  value  of  the  S-expression.  For  example,  the  list 
(A  B  C  D)  is  returned  as  the  value  of  (QUOTE  (A  B  C  D)). 

FUNCTION  is  a  special  form  which  indicates  that  the  S-expres- 
sion which  follows  is  a  functional  argument  of  a  function.  A  list  is 
returned  consisting  of  FUNARG,  the  functional  argument,  and  the  cur- 
rent A-list. 
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The  special  form  COND  is  evaluated  by  the  interpreter  function 
EVCON,  described  later  in  this  section. 

Function  names  are  evaluated  after  considering  special  forms. 
A  literal  atom  is  assumed  to  be  a  function  name  if  it  is  not  one  of 
the  special  forms  above.   Therefore,  the  function  definition  must  be 
determined.   First,  the  property  list  of  the  function  definition  is 
searched  for  one  of  the  indicators  SUBR,  FSUBR,  EXPR,  or  FEXPR.   If 
SUBR  is  found,  the  function  has  a  PL/I  definition.   Thus,  the  func- 
tion is  evaluated  by  invoking  NPROC  after  the  arguments  of  the  func- 
tion are  evaluated  by  EVLIS.   FSUBR  indicates  that  the  function 
arguments  must  be  passed  directly  to  NPROC.   An  S-expression  function 
definition  is  indicated  by  the  presence  of  EXPR  on  the  property  list. 
Consequently,  the  function  is  evaluated  by  APPLY  after  EVLIS  evalua- 
tes the  function  arguments.   If  FEXPR  is  on  the  property  list,  the 
function  arguments  are  not  evaluated.   Instead,  a  list,  comprised  of 
the  function  arguments  and  the  current  association  list,  replaces 
the  arguments  of  the  function.   APPLY  is  then  called  to  evaluate  the 
function. 

Finally,  if  the  first  element  (the  CAR)  of  the  form  supplied 
to  EVAL  is  not  an  atom,  then  the  remainder  (the  CDR)  of  the  form  is 
evaluated  by  EVLIS.   APPLY  is  then  called  to  evaluate  the  first 
element  of  the  form. 

5.   EVLIS 

EVLIS  merely  evaluates  successive  elements  of  a  list  by  calling 
EVAL,  returning  a  list  of  the  computed  values.   EVLIS  is  used  to  eval- 
uate the  arguments  of  functions  prior  to  application  of  the  function. 
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6.  EVCON 

EVCON  is  the  function  which  evaluates  the  conditional  form  COND. 
Each  of  the  arguments  of  COND  is  a  pair  of  S-expressions  for  evaluation. 
The  first  S-expression  of  each  pair  is  called  the  predicate.   EVCON 
successively  evaluates  predicates  while  they  evaluate  to  F  or  NIL.   When 
a  predicate  is  encountered  which  evaluates  to  a  value  other  than  F  or 
NIL,  the  second  S-expression  of  this  pair  is  evaluated.   The  value  of 
EVCON  is  the  value  of  this  S-expression.   If  all  of  the  predicates 
evaluate  to  F  or  NIL,  the  conditional  is  unsatisfied  and  an  error  mes- 
sage is  printed. 

7.  Tracing  Functions 

It  is  often  desirable  to  trace  the  execution  of  a  LISP  program 
either  for  the  purpose  of  debugging  or  for  simply  observing  the  se- 
quence of  calls  made  by  the  interpreter.   The  mechanism  which  enables 
a  trace  is  provided  by  (1)  the  LISP  function  TRACE  which  places  the 
indicator  FLAG  on  the  property  list  of  functions;  and  (2)  the  inter- 
preter procedure  PTRACE  which  prints  the  trace  information  in  a  read- 
able format. 

The  interpreter  functions  are  traced  in  the  following  manner. 
When  APPLY  and  EVAL  are  entered,  their  property  lists  are  searched 
for  the  presence  of  FLAG,   If  FLAG  is  found,  PTRACE  is  called  to 
print  the  value  of  the  function. 

Tracing  of  other  LISP  functions  is  handled  somewhat  differently 
than  the  interpreter  functions.   When  the  function  definition  of  a 
PL/ I  coded  LISP  function  is  determined  by  either  APPLY  or  EVAL,  the 
property  list  is  searched  for  FLAG.   If  FLAG  is  present,  the  PL/I 
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variable  TRACEl  is  set  equal  to  T.   PTRACE  is  called  if  TRACEl  equals  T 
when  NPROC  is  entered.   APPLY  and  EVAL  call  PTRACE  when  FLAG  is  dis- 
covered on  the  property  list  of  a  function  defined  by  an  S-expression. 
An  example  of  the  information  printed  by  trace  is  contained  in  Figure  19, 

8.  Error  Handling 

The  NPS  LISP  interpreter  contains  no  sophisticated  error  correc- 
tions routines  and  produces  few  error  diagnostic  messages.   When  an  er- 
ror is  discovered  by  the  interpreter,  a  short  diagnostic  message  is 
printed  and  NIL  is  returned  as  the  value  of  the  function  currently  ex- 
ecuting.  The  interpreter  continues  evaluating  as  if  NIL  is  the  correct 
value.   Thus,  the  interpreter  attempts  to  evaluate  an  S-expression  com- 
pletely even  though  an  error  occurs  during  execution.   A  LISP  error 
occasionally  causes  an  IBM  360  execution  interrupt.   As  a  result,  the 
LISP  system  must  be  completely  initialized  and  any  functions  defined 
by  the  LISP  programmer  are  lost.   The  five  errors  detected  by  the  in- 
terpreter are  listed  and  explained  in  Table  II. 

9.  Example  of  Interpreter  Execution 

Figure  19  is  a  trace  of  the  steps  taken  by  the  interpreter  in 
evaluating  the  function  (LAMBDA  (A  B)  (CONS  A  B))  applied  to  the  ar- 
guments ((X  Y  Z)  (12  3)).   The  arguments  to  EVALQUOTE  were  typed  in 
by  the  LISP  programmer;  all  other  printed  information  was  typed  by 
the  NPS  LISP  system.   The  following  sequence  of  events  takes  place: 

(1)   The  LISP  programmer  communicates  directly  with  EVALQUOTE; 
therefore,  he  types  in  two  S-expressions  --  a  function  and  a  list  of 
arguments. 
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CALL  EVALQUOTE,  ARGS: 

_(LAMBDA  (A  B)  (CONS  A  B))  ((X  Y  Z)  (1  2  3)) 

CALL  APPLY,  ARGS: 

(LAMBDA  (A  B)  (CONS  A  B)) 

((X  Y  Z)  (1  2  3)) 

NIL 

CALL  EVAL,  ARGS: 

(CONS  A  B) 

((A  X  Y  Z)  (B  1  2  3)) 

CALL  EVAL,  ARGS: 

A 

((A  X  Y  Z)  (B  1  2  3)) 

VALUE  OF  EVAL  IS: 

(X  Y  Z) 

CALL  EVAL,  ARGS: 

B 

((A  X  Y  Z)  (B  1  2  3)) 

VALUE  OF  EVAL  IS: 

(1  2  3) 

CALL  CONS,  ARGS: 

(X  Y  Z) 

(1  2  3) 

VALUE  OF  CONS  IS: 

((X  Y  Z)  1  2  3) 
VALUE  OF  EVAL  IS: 
((X  Y  Z)  1  2  3) 
VALUE  OF  APPLY  IS: 
((X  Y  Z)  1  2  3) 

VALUE  IS: 

((X  Y  Z)  1  2  3) 


FIGURE  19 
EXAMPLE  OF  A  TRACED  FUNCTION 
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(2)  Since  the  first  argument  is  not  an  atom,  APPLY  is  called. 
The  arguments  of  APPLY  are  the  function  (LAMBDA  (A  B)  (CONS  A  B)),  the 
list  of  arguments  ((X  Y  Z)  (12  3)),  and  the  NIL  A-list. 

(3)  APPLY  recognizes  LAMBDA,  binds  A  to  (X  Y  Z)  and  B  to 

(1  2  3)  on  the  A-list,  and  calls  EVAL.   The  arguments  of  EVAL  are  the 
form  (CONS  A  B)  and  the  A-list  ((A  X  Y  Z)  (B  1  2  3)). 

(4)  EVAL  determines  that  CONS  is  a  SUBR  function  and  then 
evaluates  A  and  B.   The  values  of  A  and  B  are  retrieved  from  the 
A-list. 

(5)  CONS  is  applied  to  its  arguments,  (X  Y  Z)  and  (12  3), 
and  returns  ( (X  Y  Z)  1  2  3)). 

(6)  The  computed  value  is  returned  to  EVAL,  APPLY,  and 
EVALQUOTE  in  sequence. 

C.   NPS  LISP  FUNCTIONS 

The  NPS  LISP  system  contains  all  of  the  elementary  functions,  log- 
ical connectives,  defining  and  property  list  functions,  table  building 
and  table  reference  functions,  and  list  handling  functions  found  in 
7090  LISP.   ADD1,  SUBl,  and  NUMBERP  are  the  only  arithmetic  functions 
implemented  for  the  initial  NPS  LISP  system.   Descriptions  of  all  im- 
plemented LISP  functions  are  contained  in  Appendix  A. 

The  development  of  the  NPS  LISP  system  spanned  a  period  of  five 
months,,   As  the  system  was  developed,  considerable  effort  was  ex- 
pended to  ensure  an  acceptably  short  response  time.   As  a  result,  the 
LISP  programmer  can  expect  an  almost  immediate  response  when  he  in- 
puts a  pair  of  S-expressions  for  evaluation.   The  fact  that  the  sys- 
tem was  programmed  in  a  higher  level  language,  PL/I,  provides  major 
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advantages  over  a  system  written  in  machine  code:   (1)  alterations  to 
the  system  may  be  easily  made;  (2)  the  system  may  be  implemented  quite 
easily  on  another  computer  having  a  PL/I  compiler;  and  (3)  the  system 
is  self -documenting  to  some  extent. 

Recommendations  for  incorporating  into  NPS  LISP  some  unimplemented 
features  of  7090  LISP  are  discussed  in  the  next,  and  final,  section. 
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IV.   RECOMMENDATIONS 

Due  to  the  magnitude  of  the  task  of  implementing  a  LISP  system,  it 
was  not  possible,  or  even  planned,  to  initially  implement  all  of  the 
features  of  7090  LISP.   However,  the  difficult  design  and  lengthy  pro- 
gramming tasks  are  complete,  and  the  basic  framework  exists  for  expand- 
ing NPS  LISP  capabilities.   Features  of  7090  LISP  recommended  for 
incorporation  into  the  NPS  LISP  system  are  discussed  in  the  following 
paragraphs. 

A.   GARBAGE  COLLECTION 

Garbage  collection  is  the  process  of  reclaiming  cells  of  inactive 
list  structure  when  the  free  storage  list  becomes  empty.   It  is  one 
of  the  most  significant  features  of  7090  LISP  and  desirable  for  any 
complete  LISP  system.   In  7090  LISP,  full  word  storage  is  also  re- 
claimed during  garbage  collection. 

When  NPS  LISP  was  designed,  provisions  were  made  in  the  cell  struc- 
ture for  garbage  collection  of  list  structure.   However,  no  garbage 
collection  routines  were  written  for  the  initial  implementation.   Bits 
one  and  17  of  each  non-header  cell  are  available  for  use  as  tags  dur- 
ing the  marking  phase  of  garbage  collection.   The  CAR  of  atom  header 
cells  contains  -1;  consequently,  only  the  seventeenth  bit  of  atom 
header  cells  can  be  used  for  marking. 

The  description  of  the  garbage  collection  procedure  utilized  by 
7090  LISP  is  in  Ref.  2.   In  order  to  implement  this  scheme,  all  NPS 
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LISP  functions  written  as  recursive  PL/I  procedures  will  require  some 
alteration.   These  functions  must  be  rewritten  to  utilize  a  pushdown 
list  for  storing  the  partial  results  of  computations.   Otherwise,  any 
list  structures  created  by  these  functions  are  lost  if  garbage  collec- 
tion occurs  during  their  execution.   Functions  similar  to  the  7090  LISP 
functions  SAVE  and  UNSAVE  could  be  written  to  maintain  the  pushdown 
list. 

An  alternative  to  rewriting  the  NPS  LISP  functions  is  available, 
however.   A  statement  could  be  inserted  in  the  LISP  supervisor,  LISPA, 
which  prints  a  warning  when  the  free  storage  list  is  dangerously  close 
to  becoming  empty.   When  this  message  is  seen  by  the  LISP  programmer, 
he  then  explicitly  calls  the  garbage  collection  routine  by  typing  a 
pair  of  S-expressions  such  as  RECLAIM  () .   This  solution  is  not  as 
efficient  or  foolproof  as  conventional  garbage  collection  methods; 
however,  it  provides  a  limited  garbage  collector  with  a  minimum  of 
programming  effort. 

B.   ARITHMETIC  FUNCTIONS 

Three  arithmetic  functions  are  defined  in  NPS  LISP  --  NUMBERP,  ADD1, 
and  SUB1.   The  extensive  arithmetic  capabilities  of  7090  LISP  were  not 
initially  implemented  for  NPS  LISP  since  they  were  not  considered  es- 
sential to  the  system  operation.   The  implementation  of  most  of  the 
7090  LISP  arithmetic  functions  is  not  expected  to  be  a  major  task  due 
to  the  ease  with  which  they  may  be  written  in  PL/ I. 

The  only  significant  problem  which  must  be  solved  is  the  design  of 
efficient  methods  of  reading  and  storing  floating  point  numbers. 
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The  largest  integer  that  may  be  stored  in  NPS  LISP  memory  is  2J  -1. 
Consequently,  if  two  very  large  integers  are  multiplied  together,  a 
fixed  point  overflow  may  occur. 


C.  FUNCTIONS  WITH  FUNCTIONAL  ARGUMENTS 

The  NPS  LISP  system  does  not  contain  the  7090  LISP  functions  MAP, 
MAPLIST,  MAPCAR,  or  SEARCH.   However,  they  may  be  defined  by  the  LISP 
programmer  through  the  use  of  the  functions  DEFINE  and  DEFLIST.   It  is 
recommended  that  these  features  be  written  as  PL/ I  procedures  and 
placed  within  the  procedure  NEVALQ  since  they  require  access  to  the 
current  association  list. 

D.  PROG  FEATURE 

The  PROG  feature  allows  the  LISP  programmer  to  write  LISP  programs 
in  a  convenient  format  similar  to  ALGOL.   It  was  not  implemented  since 
any  program  that  can  be  written  using  PROG  can  also  be  written  in  the 
standard  LISP  format,   All  LISP  systems  discussed  in  Section  II,  how- 
ever, have  the  PROG  feature.   Thus,  it  would  be  desirable  to  implement 
this  feature  for  NPS  LISP. 

The  NPS  LISP  system  at  the  current  stage  of  development  permits  in- 
vestigations in  many  areas  applicable  to  list  processing  and  symbol 
manipulation  techniques.   In  addition,  the  system  structure  provides 
a  good  basis  for  future  expanding  the  capabilities  of  NPS  LISP. 
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APPENDIX  A 
FUNCTIONS  IN  THE  NPS  LISP  SYSTEM 

All  LISP  functions  implemented  for  NPS  LISP  are  described  in  this 
appendix.   The  effect,  or  result,  of  most  NPS  LISP  functions  is  the 
same  as  the  corresponding  7090  LISP  function.   Any  significant  differ- 
ences are  briefly  explained.   Each  entry  in  this  appendix  consists  of 
(1)  the  function  name  followed  by  its  arguments;  (2)  an  asterisk  if 
the  function  is  equivalent  to  the  corresponding  7090  LISP  function; 
(3)  either  SUBR  or  FSUBR;  (4)  an  indication  if  the  function  is  a  pred- 
icate or  pseudo- function;  and  (5)  a  brief  description  of  the  function. 
The  functions  are  listed  here  in  the  same  order  as  they  are  in  Appen- 
dix A  of  Ref.  2  to  allow  easy  comparisons  to  7090  LISP  functions. 
True  and  false  are  represented  by  T  and  F  respectively. 
ELEMENTARY  FUNCTIONS 
CAR(x)         *         SUBR 

The  value  contained  in  bits  1-16  of  the  cell  in  FSTOR(x)  is  returned 
as  the  value  of  CAR(x). 

CDR(x)         *         SUBR 

The  value  represented  by  bits  17-32  of  the  cell  in  FSTOR(x)  is  re- 
turned as  the  value  of  CDR(x).   CDR  and  CAR  will  always  return  a 
value  even  if  applied  to  atomic  arguments.   The  functions  CAAR, 
CADR, . . . ,CDDDR  are  also  available  as  system  functions. 

C0NS(x,y)  SUBR 

The  value  returned  by  CONS  is  a  pointer  to  a  cell  obtained  from  the 
free  storage  list.   The  CAR  of  this  cell  contains  x  and  the  CDR  of 
the  cell  contains  y.   CONS  does  not  call  a  garbage  collection  rou- 
tine when  the  free  storage  list  is  exhausted. 
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ATOM(x)        *         SUBR         predicate 

T  is  returned  if  x  is  an  atom  (i.e.,  pointer  to  an  atom  header); 
otherwise,  F  is  returned  by  ATOM.  Since  the  sign  bit  of  an  atom 
header  cell  is  1,  ATOM  tests  for  a  negative  value  in  FSTOR(x). 

EO^x.y)  SUBR         predicate 

The  value  of  EQ  is  T  if  x  and  y  are  the  same  atoms,  and  F  otherwise. 
EQ  is  used  for  comparing  numbers  as  well  as  literal  atoms. 

EQUAL (x,y)  SUBR         predicate 

If  x  and  y  are  the  same  S -express ions ,  the  value  of  EQUAL  is  T; 
otherwise,  the  value  is  F.   This  function  should  not  be  used  for 
comparing  numbers. 

LIST(x1,x2 , . . . ,xn)    *   FSUBR 

The  value  of  LIST  is  a  list  of  the  arguments. 

NULL(x)  SUBR         predicate 

NULL  returns  T  if  x  is  NIL;  otherwise  it  returns  F.   In  contrast  to 
7090  LISP,  NIL  is  not  equivalent  to  zero. 

RPLACA(x,y)     *         SUBR 

The  CAR  of  x  is  replaced  by  y;  the  value  x  is  returned. 

RPLACD(x,y)     *         SUBR 

The  CDR  of  x  is  replaced  by  y;  the  value  x  is  returned.   RPLACA  and 
RPLACD  should  be  used  with  caution  since  they  permanently  alter  list 
structure. 

LOGICAL  CONNECTIVES 

AND(x, ,xOJ . . .x  )         FSUBR        predicate 
l  z     n 

The  arguments  of  AND  are  evaluated  in  sequence  until  one  of  them 
evaluates  to  F  or  NIL.   The  value  of  AND  is  F  in  this  case  or  T  if 
all  of  the  arguments  evaluate  to  some  value  other  than  F  or  NIL. 

0R(x1,x2, . . . ,x  )         FSUBR        predicate 

The  arguments  of  OR  are  evaluated  in  order  until  one  of  them  eval- 
uates to  some  value  other  than  F  or  NIL.   The  value  of  OR  is  T  in 
this  case  or  F  if  all  arguments  evaluate  to  F  or  NIL. 

NOT(x)  SUBR         predicate 

The  value  of  NOT  is  T  if  x  is  F  or  NIL;  otherwise,  the  value  of 
NOT  is  F. 
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DEFINING  AND  PROPERTY  LIST  FUNCTIONS 

DEFINE (x)      *         SUBR         pseudo- function 

The  argument  of  DEFINE  is  a  list  of  pairs;  each  pair  consists  of  a 
function  name  and  an  S-expression  definition  of  the  function.   DEFINE 
puts  an  EXPR  indicator  and  a  pointer  to  the  corresponding  function 
definition  on  the  property  list  of  each  name.  A  list  of  the  function 
names  is  returned. 

DEFLIST  (x,i)    *        SUBR         pseudo -function 

This  function  works  like  define  except  that  it  puts  the  indicator  i 
on  the  property  lists  instead  of  EXPR.   DEFLIST  can  be  used  to  put 
any  property  on  a  property  list.   If  either  DEFINE  or  DEFLIST  is  used 
more  than  once  on  the  same  property  list,  the  most  recent  property 
under  any  particular  indicator  replaces  the  previous  one.   For  ex- 
ample, if  a  function  is  re-defined  several  times  using  DEFINE,  only 
the  most  recent  definition  is  on  the  function's  property  list. 

ATTRIB(x,y)    *         SUBR         pseudo -function 

The  last  element  of  x  is  changed  by  ATTRIB  to  the  value  y;  the  value 
returned  is  y.   ATTRIB  can  be  used  to  attach  something  onto  the  end 
of  a  property  list. 

PROP(x,y,u)  SUBR 

The  function  PROP  searches  the  list  x  for  an  element  that  is  EQ  to  y. 
If  such  an  element  is  found,  the  value  of  PROP  is  the  remainder  of 
the  list  beginning  immediately  after  y.   Otherwise,  the  value  of  PROP 
is  u.   The  argument  u  is  any  S-expression. 

GET(x,y)       *         SUBR 

GET  searches  the  list  x  for  an  element  that  is  EQ  to  y.   The  CAR  of 
the  remainder  of  the  list  immediately  following  y  is  returned  if  the 
search  is  successful.   Otherwise,  the  value  of  GET  is  NIL. 

CSET(x,v)      *         SUBR         pseudo -function 

This  pseudo -function  establishes  a  zero-level  binding  of  the  atom  x 
to  the  value  v;  it  puts  the  indicator  APVAL  and  a  value  cell  whose 
CAR  points  to  v  on  the  property  list  of  x.   The  value  of  CSET  is  x. 

CSETQ(x,v)     *         SUBR         pseudo -function 

CSETQ  is  similar  to  CSET  except  that  it  quotes  the  first  argument, 
x,  instead  of  evaluating  it.   CSETQ  cannot  be  input  at  the  top  level 
of  EVALQUOTE.   That  is,  the  following  pair  of  S -express ions  is 
illegal:   CSETQ  (A  (1  2  3)). 
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REMPROP(x,i)    *         SUBR         pseudo- function 

This  pseudo -function  deletes  all  occurrences  of  the  indicator  i  and 
its  related  property  from  the  list  x.   The  value  of  REMPROP  is  NIL. 

FLAG(l,i)      *         SUBR         pseudo-function 

The  argument  1  is  a  list  of  atoms.   FLAG  puts  the  flag  i  on  the  prop- 
erty list  of  each  atom  in  list  1.   The  value  of  FLAG  is  NIL. 

REMFLAG(l,i)    *         SUBR         pseudo- function 

REMFLAG  has  the  opposite  effect  of  FLAG.   It  removes  all  occurrences 
of  the  flag  i  from  the  property  list  of  each  atom  in  the  list  1  and 
returns  NIL. 

TABLE  BUILDING  AND  TABLE  REFERENCE  FUNCTIONS 

PAJR(x,y)       *         SUBR 

The  function  PAIR  returns  a  list  of  dotted  pairs  of  corresponding 
elements  of  the  lists  x  and  y. 

PAIRLIS (x,y, a)  *         SUBR 

PAIRLIS  acts  like  PAIR  with  the  additional  property  that  it  adds  the 
list  of  pairs  to  the  front  of  list  a.   The  value  of  PAIRLIS  is  the 
modified  list  a. 

SASSOC(x,y,u)  SUBR 

The  function  SASSOC  searches  the  list  of  dotted  pairs,  y,  for  a  pair 
whose  first  element  is  x.   If  such  a  pair  is  found,  the  value  of 
SASSOC  is  this  pair.   Otherwise,  the  S -express ion  u  is  returned. 

ASSOC (x,y)  SUBR 

ASSOC,  like  SASSOC,  returns  the  pair  on  the  list  y  whose  first  term 
is  EQ  to  x.   If  no  such  pair  is  found,  the  value  of  PAIR  is  NIL. 

SUBST(x,y,z)    *         SUBR 

SUBST  returns  the  new  S-expression  formed  by  substituting  x  for  all 
occurrences  of  y  in  the  S-expression  z.   Note  that  SUBST  does  not 
change  the  S-expression  z. 

SUB2(x,y)  SUBR 

SUB2  is  similar  to  ASSOC.   It  searches  the  list  of  pairs  x  for  a 
pair  whose  first  term  is  EQ  to  y.   SUB2  returns  the  second  term  of 
the  pair  if  the  search  is  successful;  otherwise,  it  returns  y. 
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SUBLIS(x,y)     *         SUBR 

The  argument  x  is  a  list  of  dotted  pairs  of  the  form  ((ui.vO^.Vn) 
...(un.vn))  and  y  is  an  S-expression.   SUBLIS  returns  a  new  S-expres- 
sion  formed  by  replacing  all  occurrences  of  any  u. 's  in  y  by  their 
corresponding  v^'s.   The  S-expression  y  is  not  altered. 

LIST  MANIPULATING  FUNCTIONS 

APPEND (x,y)     *         SUBR 

The  function  APPEND  attaches  the  list  y  to  the  end  of  a  copy  of  the 
list  x  and  returns  the  resultant  list. 

NCONC(x,y)      *         SUBR 

NCONC  concatenates  the  lists  x  and  y  without  copying  the  list  x;  it 
returns  the  combined  list.   This  function  utilizes  the  function 
RPLACD;  thus,  list  structure  is  permanently  altered. 

COPY(x)        *         SUBR 

The  function  COPY  returns  a  copy  of  the  list  x. 

REVERSE  (x)      *         SUBR 

This  function  reverses  the  top  level  of  the  list  x  and  returns  the 
reversed  list. 

MEMBER (x,y)    *         SUBR         predicate 

If  the  S-expression  x  is  a  member  of  the  list  y,  MEMBER  returns  T; 
otherwise  it  returns  F. 

LENGTH  (x)      *         SUBR 

The  length  of  the  top  level  of  the  list  x  is  returned  by  LENGTH. 
LAST(x)  SUBR 

The  last  element  of  the  list  x  is  returned  as  the  value  of  LAST. 

EFFACE (x,y)     *         SUBR 

EFFACE  alters  the  list  y  by  removing  from  it  all  occurrences  of 
the  item  x. 

ARITHMETIC  FUNCTIONS 

NUMBERP(x)     *         SUBR         predicate 

The  predicate  NUMBERP  returns  T  if  X  is  a  numerical  atom  and  F  other- 
wise.  It  utilizes  the  fact  that  number  values  are  stored  in  full 
word  storage  (i.e.,  the  region  of  FSTOR  above  the  pointer  BNUM) . 
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ADDl(x)        *         SUBR 

The  argument  x  must  be  a  numerical  atom;  if  ADD1  (or  SUBl)  is  applied 
to  a  literal  atom,  the  property  list  of  the  literal  atom  will  be  lost. 
ADD1  adds  one  (1)  to  the  value  of  x  and  returns  this  new  value. 

SUBl(x)        *         SUBR 

The  function  SUBl  operates  similarly  to  ADDl  except  that  the  value  of 
(SUBl  X)  is  X-l. 

INPUT  AND  OUTPUT  FUNCTIONS 

READQ  SUBR         pseudo- function 

When  READ  is  executed,  the  next  S -express ion  in  the  input  buffer  is 
read  into  the  system.   READ  puts  atoms  into  the  OBLIST  and  creates 
atom  property  lists.   The  value  of  READ  is  the  S-expression  read. 

PRINT (x)       *         SUBR         pseudo -function 

The  execution  of  PRINT  causes  the  S-expression  x  to  be  printed;  the 
value  of  PRINT  is  x. 

PRINl(x)       *         SUBR         pseudo -function 

The  pseudo-function  PRIN1  puts  the  atom  x  on  the  print  buffer;  the 
print  buffer  is  not  printed  unless  it  is  full. 

TERPRIQ       *         SUBR         pseudo-function 

TERPRI  prints  the  current  contents  of  the  print  buffer.   TERPRI  also 
clears  the  print  buffer  after  printing  it  and  returns  NIL. 

FUNCTIONS  FOR  DEBUGGING 

TRACE (x)       *         SUBR         pseudo- function 

TRACE  puts  a  flag  on  the  property  list  of  each  function  in  the  list  x 
which  causes  trace  information  to  be  printed  when  the  function  is  en- 
tered and  exited.   The  argument  x  must  be  a  list  of  function  names. 
The  value  of  TRACE  is  NIL. 

UNTRACE(x)     *         SUBR         pseudo- function 

UNTRACE  removes  the  trace  flag  from  the  property  lists  of  all  function 
names  in  the  list  x.   The  value  of  UNTRACE  is  NIL. 

INTERPRETER  FUNCTIONS 

APPLY(fn,args,a)   *      SUBR 

The  arguments  of  APPLY  are  a  function,  a  list  of  arguments  for  the 
function,  and  the  current  association  list.  APPLY  applies  a  func- 
tion to  its  arguments  and  returns  the  resultant  value. 
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EVAL  (f orm, a)    *         SUBR 

The  arguments  of  EVAL  are  a  form  to  be  evaluated  and  the  current  asso- 
ciation list.   The  value  returned  by  EVAL  is  the  value  of  the  form. 

EVLIS(l,a)      *         SUBR 

EVLIS  evaluates  a  list  of  forms;  the  list  is  usually  a  list  of  argu- 
ments for  a  function  which  are  evaluated  before  the  function  is  ap- 
plied.  The  arguments  of  EVLIS  are  a  list  of  forms  for  evaluation  and 
the  current  association  list.   EVLIS  returns  a  list  of  values  of  the 
forms . 

EVCON(c,a)  SUBR 

The  arguments  of  EVCON  are  a  list  of  pairs  of  S-expressions ;  for 
each  pair,  the  first  element  is  a  predicate  while  the  second  element 
is  an  S-expression  that  is  evaluated  if  the  value  of  the  predicate 
expression  is  not  F  or  NIL.   The  value  of  EVCON  is  the  value  of  the 
second  S-expression  in  this  case.   At  least  one  of  the  predicates 
must  evaluate  to  a  value  other  than  F  or  NIL;  otherwise,  an  error 
results. 
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APPENDIX  B 


USING  THE  NPS  LISP  SYSTEM 


The  NPS  LISP  system  is  a  PL/I  program  that  runs  under  control  of 
the  Cambridge  Monitor  System  (CP/CMS).   NPS  LISP  consists  of  six  ex- 
ternal PL/I  procedures  which  reside  on  a  private  user  disk  file  under 
the  file  names  LISPA,  LISPB,  LISPC,  LISPD,  LISPE,  and  LISPP.   LISPA  is 
the  NPS  LISP  supervisor;  it  reads  two  S-expressions ,  calls  EVALQUOTE, 
and  prints  the  value  of  EVALQUOTE.   LISPB  contains  most  of  the  func- 
tions implemented  for  NPS  LISP.   LISPC  contains  the  read  routines. 
LISPD  is  the  interpreter,  NEVALQ.   LISPE  is  the  initialization  rou- 
tine, INITIAL,  which  puts  all  system  functions  in  memory.   LISPP  con- 
tains the  elementary  LISP  functions. 

A  user  of  NPS  LISP  must  log  on  to  CP  in  the  usual  manner.   He  then 
must  enter  an  ' IPL  CMS'  command  and,  when  CMS  is  loaded,  type  'LISP!. 
(Single  quotes  are  used  here  to  specify  what  is  actually  typed  by  the 
user).   This  causes  system  initialization.   The  system  is  ready  to  ac- 
cept input  when  the  terminal  types  'CALL  EVALQUOTE,  ARGS : ' ,  skips  to 
the  next  line,  and  types  '_' . 

EVALQUOTE  is  not  called  until  two  complete  S-expressions  have  been 
read.   The  character  '_'  is  typed  if  any  input  line  is  not  complete. 
When  EVALQUOTE  has  completed  execution,  the  terminal  types  'VALUE  IS:' 
followed  by  the  value  of  EVALQUOTE.   A  listing  of  a  brief  session  with 
the  NPS  LISP  system  follows: 
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ipl  cms 

CMS. .VERSION  II. 0  -  06/15/69 

lisp 

EXECUTION  BEGINS. .. 

NPS  LISP  INITIALIZING 

CALL  EVALQUOTE,  ARCS: 

_(lambda  (x)  <)  ((this  Is  an  example  cf  nps  lisp)) 

VALUE  IS: 

(THIS  IS  AN  FXAMPLE  OF  NPS  LISP) 


CALL  EVALQUOTE,  ARGS: 
_de'lne  (( 

__(  itersectlon  (lambda  (x  y)  (cond  ((null  x)  nil) 

_     ((member  (car  x)  y)  (cond@s  (car  x)  (Intersection 

_     (cdr  x)  y)))  (t  (intersection  (cdr  x)  y))  ))) 

__Mtort»l?st  (lambda  (1)  (cond  ((null  1)  t) 

((atom  (car  1))  (atomlist  (cdr  1)))  (t  f))))  )) 

V/  UE  IS: 

(I  TERSECTION  ATOMLIST) 


CA  .  EVALQUOTE,  ARGS: 

_h  ersection  ((a  b  d  e  j  t  r  s)(t  e  s  a  1  5  j)) 

VAL  ':  IS: 
(A    J  T  S) 


CALL   VALQUOTE,  ARGS: 
_ator.  1st  ((a  b  c  d  e)) 

VALUF   S: 

T 


CALL  EV*  1UCTE,  ARGS: 
atoml  is   ((a  »•  (c)  d  a)) 
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VALUE  IS: 
NIL 


CALL  EVALQUOTE,  ARGS: 
_cset  (llsta  (abed  e)) 

VALUE  IS: 
LISTA 


CALL  EVALQUOTE,  ARCS: 

_(lambda  (x)  (cons  x  (eddr  llsta)))  ((1  2  3)) 

VALUE  IS: 

((1  2  3)  C  D  E) 


CALL  EVALOUOTE,  ARGS: 
__reverse  ((a  bed  e)) 

VALUE  IS: 
(E  D  C  B  A) 


CALL  EVALQUOTE,  ARGS: 
_palr  ((a  b  c  d)(l  2  3  U)) 

VALUE  IS: 

((A  .  1)  (B  .  2)  (C  .  3)  (D  .  U)) 


CALL  EVALQUOTE,  ARGS: 
_addl  (789) 

VALUE  IS: 
790 


CALL  EVALQUOTE,  ARGS: 

_subst  (one  1  (1  2  (l*  1)((7  3  1  3)  1  6)))))))))) 

VALUE  IS: 

(ONE  2  U  ONE)  ((7  3  ONE  3)  ONE  6)) 


CALL  EVALQUOTE,  ARGS: 

_  end  1 1 sp 

EXIT  LISP  SYSTEM 

R;  T«20. 09/27. 5k    15.1U.33 
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